home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_10933.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  5.7 KB  |  283 lines
  1. -- card: 10933 from stack: in
  2. -- bmap block id: 11075
  3. -- flags: 0000
  4. -- background id: 6748
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   show card picture
  9.   put 1 into zz
  10.   put empty into card field "message"
  11.   put "Select a Chemical" into line 2 of card field "message"
  12.   put "to test for Lead Ions" into line 4 of card field "message"
  13.   repeat until zz = 3
  14.  
  15.     set the highlight of card button arrow to true
  16.     wait 30
  17.     set the highlight of card button "Arrow" to false
  18.     wait 30
  19.     add 1 to zz
  20.   end repeat
  21. end opencard
  22.  
  23. on check
  24.   global reagent
  25.   Put empty into card field "message"
  26.   put "Check STEP 3 on Flow Chart" into line 1 of card field "message"
  27.   put reagent into line 3 of card field "message"
  28.   put "is not used at this time" into line 5 of card field "message"
  29.   show card field "message"
  30.   repeat 2 times
  31.     set the highlight of card button "flow chart" to true
  32.     wait 1 second
  33.     set the highlight of card button "flow chart" to false
  34.     wait 1 second
  35.   end repeat
  36. end check
  37.  
  38.  
  39.  
  40.  
  41. -- part 1 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=110 top=161 right=193 bottom=131
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: arrow
  53.  
  54.  
  55. -- part 2 (field)
  56. -- low flags: 01
  57. -- high flags: 0001
  58. -- rect: left=190 top=201 right=342 bottom=432
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 3
  63. -- text size: 14
  64. -- style flags: 256
  65. -- line height: 18
  66. -- part name: Message
  67. ----- HyperTalk script -----
  68. on mouseup
  69.   hide card field "message"
  70. end mouseup
  71.  
  72.  
  73.  
  74. -- part 3 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=246 top=44 right=106 bottom=297
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Ammonia
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   global reagent
  89.   get the short name of me
  90.   put it into reagent
  91.   show card picture
  92.   check
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 2000
  100. -- rect: left=125 top=44 right=106 bottom=176
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Distilled Water
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   global reagent
  112.   get the short name of me
  113.   put it into reagent
  114.   show card picture
  115.   check
  116.  
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 5 (button)
  122. -- low flags: 00
  123. -- high flags: 2000
  124. -- rect: left=63 top=44 right=106 bottom=114
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Nitric Acid
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global reagent
  136.   get the short name of me
  137.   put it into reagent
  138.   show card picture
  139.   check
  140.  
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 6 (button)
  146. -- low flags: 00
  147. -- high flags: 2000
  148. -- rect: left=3 top=44 right=106 bottom=54
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Hydrochloric Acid
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   global reagent
  160.   get the short name of me
  161.   put it into reagent
  162.   show card picture
  163.   check
  164.  
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 7 (button)
  170. -- low flags: 00
  171. -- high flags: 8002
  172. -- rect: left=434 top=205 right=254 bottom=509
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Flow Chart
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   push card
  184.   go to card id 7591
  185.   put 1 into zz
  186.   repeat until zz = 4
  187.     set the highlight of card button step3 to true
  188.     wait 30
  189.     set the highlight of card button step3 to false
  190.     wait 30
  191.     put zz+1 into zz
  192.   end repeat
  193.  
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 8 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=434 top=8 right=94 bottom=504
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Centrifuge
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   global kee
  213.   global reagent
  214.   put empty into card field "message"
  215.   put "Not necessary to" into line 2 of card field "message"
  216.   put "Centrifuge at this time" into line 4 of card field "message"
  217.   put "Check Flow Chart" into line 6 of card field "message"
  218.  
  219.  
  220.  
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 9 (button)
  226. -- low flags: 00
  227. -- high flags: 2000
  228. -- rect: left=434 top=113 right=199 bottom=504
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Hot Water Bath
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global kee
  240.  
  241.   put empty into card field "message"
  242.   put "Not Necessary to Use" into line 2 of card field "message"
  243.   put "Hot Water Bath" into line 4 of card field "message"
  244.   put "At This Time" into line 6 of card field "message"
  245.  
  246.  
  247.  
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 10 (button)
  253. -- low flags: 00
  254. -- high flags: 2000
  255. -- rect: left=185 top=44 right=106 bottom=236
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Lead Chromate
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   global reagent
  267.   get the short name of me
  268.   put it into reagent
  269.   visual dissolve slow
  270.   go to next card
  271.   show card picture
  272.  
  273.  
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part contents for card part 2
  279. ----- text -----
  280.  
  281. Select a Chemical
  282.  
  283. to test for Lead Ions